program Project1; //Zadanie 4.3

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  n = 10;

  type
    macierz = array[1..n, 1..n] of integer;

var
  i, j, suma : integer;
  tablica : macierz;

begin
  {wpisywanie do tablicy liczby 1 na przektnej, a 0 poza przektn}
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          if i = j then
            tablica[i,j]:=1
          else
            tablica[i,j]:=0
        end; {j}
    end;   {i}   {Koniec wpisywania}

  {Wydruk zawartosci tablicy}
  for i:=1 to n do
    begin
      for j:=1 to n do
        begin
          Write(tablica[i,j],' ');
        end; {j}
       writeln;
    end;   {i}
  {Koniec wydruku tablicy}

  {Obliczanie sumy elementow znajdujacych sie na przekatnej tablicy}
  suma:=0;
  for i:=1 to n do
    suma:=suma+tablica[i,i];
  Writeln;
  Writeln('Suma wyroznionych w zadaniu elementow wynosi ', suma, '.');

  Readln; //czeka na nacisniecie klawisza Enter
end.
